home *** CD-ROM | disk | FTP | other *** search
- # This eve model file generated by Michael B. Johnson's WW3DKit software running under NeXTSTEP.
- # Contact him at wave@media.mit.edu or (617) 666-4119 for more information.
- #
- # Writing out all the current values of the global variables:
- startShape {Support} ;
- loadControlPanel quickieControls.nib
- Translate 0 -1.5 0
- Scale .1 .1 .1
- startShape {aFork} ;
- Surface metal ;
- EveCmd {Color $fork(color)};
- TransformBegin;
- EveCmd {Translate $topOfFork(xTranslate) $topOfFork(yTranslate) $topOfFork(zTranslate)};
- EveCmd {Rotate $topOfFork(xRotate) 1 0 0 };
- EveCmd {Cylinder $topOfFork(radius) $topOfFork(zMin) $topOfFork(zMax) $topOfFork(thetaMax)};
- TransformEnd;
- TransformBegin;
- EveCmd {Scale $fork(xScale) $fork(yScale) $fork(zScale)};
- EveCmd {Torus $fork(majorRadius) $fork(minorRadius) $fork(phiMin) $fork(phiMax) $fork(thetaMax)};
- TransformEnd;
- startShape {Wheel} ;
- Rotate 90.000000 0.000000 1.000000 0.000000;
- startShape {Tire} ;
- Surface RCRubber ;
- EveCmd {Color $tire(color)};
- EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)};
- EveCmd {Translate $tire(xTranslate) $tire(yTranslate) $tire(zTranslate)};
- EveCmd {Rotate $tire(xRotate) 1 0 0 };
- EveCmd {Rotate $tire(yRotate) 0 1 0 };
- EveCmd {Rotate $tire(zRotate) 0 0 1 };
- EveCmd {Torus $tire(majorRadius) $tire(minorRadius) $tire(phiMin) $tire(phiMax) $tire(thetaMax)};
- startShape {Hubcap} ;
- Surface metal ;
- EveCmd {Color $hubcap(color)};
- EveCmd {Scale $hubcap(xScale) $hubcap(yScale) $hubcap(zScale)};
- EveCmd {Translate $hubcap(xTranslate) $hubcap(yTranslate) $hubcap(zTranslate)};
- EveCmd {Rotate $hubcap(xRotate) 1 0 0 };
- EveCmd {Rotate $hubcap(yRotate) 0 1 0 };
- EveCmd {Rotate $hubcap(zRotate) 0 0 1 };
- EveCmd {Sphere $hubcap(radius) $hubcap(zMin) $hubcap(zMax) $hubcap(thetaMax)};
-
- endShape
-
- endShape
-
- endShape
-
- endShape
- startShape {Piston} ;
- Surface metal ;
- EveCmd {Color $piston(color)};
- EveCmd {Translate 0 $piston(bounce) 0};
- TransformBegin;
- EveCmd {Translate $piston(xTranslate) $piston(yTranslate) $piston(zTranslate)};
- EveCmd {Rotate $piston(xRotate) 1 0 0 };
- EveCmd {Cylinder $piston(radius) $piston(zMin) $piston(zMax) $piston(thetaMax)};
- TransformEnd;
- startShape {Gasket} ;
- Surface RCRubber ;
- EveCmd {Color $gasket(color)};
- EveCmd {set gasket(yTranslate) [expr {$piston(yTranslate) - $piston(zMax)}]};
- EveCmd {Translate 0 $gasket(yTranslate) 0};
- Rotate 90.000000 1.000000 0.000000 0.000000;
- EveCmd {Torus $gasket(majorRadius) $gasket(minorRadius) $gasket(phiMin) $gasket(phiMax) $gasket(thetaMax)};
-
- endShape
-
- endShape
-
- endShape
-